Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/allfiles/Storm/storm7.dir/00008_Script_credit fader

Text File | 1999-04-26 | 697b | 35 lines

property myState, mySprite

on beginSprite me
  set mySprite = the spriteNum of me
  set the blend of sprite mySprite = 0
  set myState = FALSE
end

on prepareFrame me
  case myState of
    #fadeIn: trasIn me
    #fadeOut: trasOut me
  end case
end

on trasIn me
  set theBlend = the blend of sprite mySprite
  if theBlend < 100 then set the blend of sprite mySprite = theBlend + 10
  else set myState = FALSE
end

on trasOut me
  set theBlend = the blend of sprite mySprite
  if theBlend > 0 then set the blend of sprite mySprite = theBlend - 10
  else set myState = FALSE
end

on fadeIn me
 set myState = #fadeIn
end

on fadeOut me
  set myState = #fadeOut
end